;
;	CPC Maths Routines
;
;	August 2003 **_|warp6|_** <kbaccam /at/ free.fr>
;
;	$Id: fprand.asm,v 1.4 2016-06-22 19:50:49 dom Exp $
;

    SECTION smc_fp
    INCLUDE "cpcmath.inc"

    PUBLIC  fprand
    PUBLIC  fprandc

    EXTERN  fa

.fprand
    ld      hl,fa+1
.fprandc
    FPCALL(CPCFP_FLO_RND)
    ret